home *** CD-ROM | disk | FTP | other *** search
/ Precision Software Appli…tions Silver Collection 1 / Precision Software Applications Silver Collection Volume One (PSM) (1993).iso / tutor / clipper.exe / REPLIC.PRG < prev    next >
Text File  |  1985-07-02  |  5KB  |  173 lines
  1. * program replic.prg - a demo of the replicate() function in use
  2. *
  3. *
  4.  
  5. set colo to w/
  6. clear
  7. Null = 0
  8. Esc  = 27
  9. lpr  = 0
  10. clr = 'w/'
  11. frame = chr(201) + chr(205) + chr(187) + chr(186) + chr(188) + ;
  12. chr(205) + chr(200) + chr(186) + chr(176)
  13. SLBOX = chr(218) + chr(196) + chr(191) + chr(179) + chr(217) + ;
  14. chr(196) + chr(192) + chr(179) + chr(32)
  15. @ 0,0,4,79 box frame
  16. @ 20,0,23,79 box frame
  17. set color to /w
  18. @ 2,2 say 'Current time :-           '
  19. set color to r/w
  20. @ 2,18 say time()
  21. set color to /w
  22. @ 1,30 say '      CLIPPER - The dBASE III Compiler        '
  23. @ 2,30 say 'Demonstration of Clipper REPLICATE() function '
  24. set color to gr+/
  25. @ 3,30 say '          dBASE III comes of age              '
  26. set color to w/r
  27. @ 6,12 say 'Hit the key you want to Replicate or ESCAPE to exit'
  28. do while lpr <> Esc
  29.   Do While inkey() = Null
  30.     set color to r/w
  31.     @ 2,18 say time()
  32.   Enddo
  33.   set color to &clr
  34.   @ 8,0,10,79 box slbox
  35.   if clr = 'w/'
  36.     clr = 'gr/'
  37.   else
  38.     clr = 'w/'
  39.   endif
  40.   lpr = lastkey()
  41.   repchar = chr(lastkey())
  42.   @ 9,5 say space (70)
  43.   if lastkey() <> Esc
  44.     @ 9,5 say replicate(repchar,70)
  45.   endif
  46.   set color to r/w
  47.   @ 12,10 say '  The line above is the key pressed replicated 70 times......  '
  48.   If lastkey() <= 256
  49.     set color to gr+/
  50.     If lastkey() = ESC
  51.       @ 16,25 say space(54)
  52.       @ 16,25 say 'You have just hit the [ESC] key '
  53.     else
  54.       @ 16,25 say space(54)
  55.       @ 16,25 say 'You have just hit the key [' + chr(lastkey()) + ']'
  56.     endif
  57.   endif
  58.   if lastkey() > 256
  59.     do case
  60.       case lastkey() = 19200
  61.          kar = chr(27)
  62.       case lastkey() = 19712
  63.          kar = chr(26)
  64.       case lastkey() = 18432
  65.          kar = chr(24)
  66.       case lastkey() = 20480
  67.          kar = chr(25)
  68.       case lastkey() = 18176
  69.          kar = 'HOME'
  70.       case lastkey() = 20224
  71.          kar = 'END'
  72.       case lastkey() = 18688
  73.          kar = 'PAGEUP'
  74.       case lastkey() = 20736
  75.          kar = 'PAGEDOWN'
  76.       case lastkey() = 9
  77.          kar = 'TAB'
  78.       case lastkey() = 20992
  79.          kar = 'INSERT'
  80.       case lastkey() = 21248
  81.          kar = 'DEL'
  82.       case lastkey() = 15104
  83.          kar = 'F1'
  84.       case lastkey() = 15360
  85.          kar = 'F2'
  86.       case lastkey() = 15616
  87.          kar = 'F3'
  88.       case lastkey() = 15872
  89.          kar = 'F4'
  90.       case lastkey() = 16128
  91.          kar = 'F5'
  92.       case lastkey() = 16384
  93.          kar = 'F6'
  94.       case lastkey() = 16640
  95.          kar = 'F7'
  96.       case lastkey() = 16896
  97.          kar = 'F8'
  98.       case lastkey() = 17152
  99.          kar = 'F9'
  100.       case lastkey() = 17408
  101.          kar = 'F10'
  102.       case lastkey() = 21504
  103.          kar = 'SHIFT F1'
  104.       case lastkey() = 21760
  105.          kar = 'SHIFT F2'
  106.       case lastkey() = 22016
  107.          kar = 'SHIFT F3'
  108.       case lastkey() = 22272
  109.          kar = 'SHIFT F4'
  110.       case lastkey() = 22528
  111.          kar = 'SHIFT F5'
  112.       case lastkey() = 22784
  113.          kar = 'SHIFT F6'
  114.       case lastkey() = 23040
  115.          kar = 'SHIFT F7'
  116.       case lastkey() = 23296
  117.          kar = 'SHIFT F8'
  118.       case lastkey() = 23552
  119.          kar = 'SHIFT F9'
  120.       case lastkey() = 23808
  121.          kar = 'SHIFT F10'
  122.       case lastkey() = 24064
  123.          kar = 'CTRL F1'
  124.       case lastkey() = 24320
  125.          kar = 'CTRL F2'
  126.       case lastkey() = 24576
  127.          kar = 'CTRL F3'
  128.       case lastkey() = 24832
  129.          kar = 'CTRL F4'
  130.       case lastkey() = 25088
  131.          kar = 'CTRL F5'
  132.       case lastkey() = 25344
  133.          kar = 'CTRL F6'
  134.       case lastkey() = 25600
  135.          kar = 'CTRL F7'
  136.       case lastkey() = 25856
  137.          kar = 'CTRL F8'
  138.       case lastkey() = 26112
  139.          kar = 'CTRL F9'
  140.       case lastkey() = 26368
  141.          kar = 'CTRL F10'
  142.       case lastkey() = 26624
  143.          kar = 'ALT F1'
  144.       case lastkey() = 26880
  145.          kar = 'ALT F2'
  146.       case lastkey() = 27136
  147.          kar = 'ALT F3'
  148.       case lastkey() = 27392
  149.          kar = 'ALT F4'
  150.       case lastkey() = 27648
  151.          kar = 'ALT F5'
  152.       case lastkey() = 27904
  153.          kar = 'ALT F6'
  154.       case lastkey() = 28160
  155.          kar = 'ALT F7'
  156.       case lastkey() = 28416
  157.          kar = 'ALT F8'
  158.       case lastkey() = 28672
  159.          kar = 'ALT F9'
  160.       case lastkey() = 28928
  161.          kar = 'ALT F10'
  162.       otherwise
  163.          kar = ' NO CHARACTER '
  164.     ENDCASE
  165.     set color to gr/
  166.     @ 16,25 say space(54)
  167.     @ 16,25 say 'You have just hit a non-printable key [' + kar + ']'
  168.   endif
  169. enddo
  170. @ 22,0
  171. set color to w/
  172. Return
  173.